Release 10.1A: OpenEdge Development:
ADM Reference

unbindServer

Procedure that unbinds the AppServer by destroying the server side object started by the client.

Location: appserver.p

Parameters:

INPUT pcMode AS CHARACTER

Valid values are unconditional, conditional, and the empty string. If conditional, unbinding only takes place if the caller is at the same level as BindSignature. The empty string is recognized, but not currently supported.

Notes:

This procedure allows nested calls of procedures that binds and unbinds, but still postpone the unbinding until we are back at the level that did the actual binding.
The logic in this procedure is dependent of the fact that getAsHandle or bindServer does the actual binding (if AsHandle is ? ) and logs the call level by setBindSignature = program-name(2).
An external caller uses the following sequence to ensure that all calls are done with one connection:

RUN bindServer in <handle>. somerequest in handle somerequest in handle RUN unbindServer(?).

Internal calls typically look like this:

hAsHandle = getAsHandle(). somerequest in hasHandle RUN unbindServer(?).

Overrides need to do the following:

def input param pcmode as char. run SUPER(if pcMode = ? then program-name(2) else pcMode).

Limitations apply as recursive calls and external callers have the same signature, so an unbind might happen too early. (This can probably be fixed by saving the complete stack in BindSignature).